1 PRINT"[147] 'MEDIUM RESOLUTION 64' MUST BE"
2 PRINT" ACTIVATED BEFORE THIS PROGRAM WILL":PRINT" FUNCTION PROPERLY."
3 FORI=1TO6000:NEXT
100 XF=28:YF=20:X0=39:Y0=25:SC=53281:BO=53280:F=80:G=50:CF=16:AD=51000
110 POKESC,0:POKEBO,0:GOSUB270:GOSUB300
120 FORX=0TO79:Y=.:SYS AD,X,Y,6:Y=49:SYS AD,X,Y,6:NEXT
130 FORY=0TO49:X=.:SYS AD,X,Y,6:X=79:SYS AD,X,Y,6:NEXT
140 FORI=0TO15:SYS AD,I,I,6:SYS AD,(79-I),(49-I),6:SYS AD,I,(49-I),6
150 SYS AD,(79-I),I,6:NEXT:FORX=16TO63:Y=15:SYS AD,X,Y,7:Y=34:SYS AD,X,Y,7:NEXT
160 FORY=16TO33:X=16:SYS AD,X,Y,7:X=63:SYS AD,X,Y,7:NEXT
170 PRINT""TAB(10)"80 BY 50 MEDIUM-RES"
180 GOSUB300:K=0:C=1:FORZ=1TO7:C=C+1
190 FORY=0TO49STEP5:FORX=KTOK+5:SYS AD,X,Y,C:Y=Y+1:NEXTX,Y:K=K+12:NEXTZ:K=6
200 FORZ=1TO6:C=C+1:FORY=49TO0STEP-5:FORX=KTOK+5:SYS AD,X,Y,C:Y=Y-1:NEXTX,Y
210 K=K+12:NEXTZ:GOSUB300
220 FORI=0TO2*(null)STEP(null)/85:X=X0+COS(I)*XF:Y=Y0+SIN(I)*YF:SYS AD,X,Y,6:NEXT
230 FORI=0TO2*(null)STEP(null)/40:X=39.5+COS(I)*10:Y=24.5+SIN(I)*8:SYS AD,X,Y,5:NEXT
240 GOSUB300
250 FORI=1TO200:X=RND(1)*F:Y=RND(1)*G:C=RND(1)*CF:SYS AD,X,Y,C:NEXT
260 GOSUB300:END
270 PRINT"[147]    AFTER EACH IMAGE IS DRAWN, PRESS"
280 PRINTTAB(10)"ANY KEY TO CONTINUE."
290 PRINTTAB(12)"(PRESS ANY KEY)":RETURN
300 POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]":RETURN